home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / SOUNDC.ARJ / SOUNDS.C < prev    next >
C/C++ Source or Header  |  1992-07-11  |  5KB  |  131 lines
  1. /* sound generation and timing interrupt
  2.  * sample sounds
  3.  *
  4.  * Last change:  10 Jul 92  JMG
  5.  *
  6.  * Written by:
  7.  *
  8.  *   Nels Anderson
  9.  *   92 Bishop Drive
  10.  *   Framingham, MA  01701
  11.  *
  12.  * Translated to (Borland) C by:
  13.  *
  14.  *   John Gallant
  15.  *   1249 Cedar Creek Circle
  16.  *   Dayton OH 45459
  17.  *
  18.  * Released to the public domain
  19.  */
  20.  
  21. #include "sndnotes.h"
  22.  
  23. /*
  24.  Sound Collection:
  25.  
  26.   Each sound is an array of pairs of bytes, where the first byte of each
  27.   pair is the duration in 1/18th second units and the second byte of the
  28.   pair is the note frequency in 10's of Hertz.  To use a sound, include
  29.   a command like the following in a program:
  30.  
  31.        StartSound(PhaserSound,3,1);    / * do phaser sound 3 times * /
  32.  
  33.  */
  34.  
  35. char Ruddigore[] = {        /* theme song */
  36.   18,000,        /* start delay */
  37.   3,000,
  38.   3,DN4,1,DN4, 2,DN4,2,DN4,8,FN4,4,DN4,
  39.   2,DN4,2,DN4,8,AN4,3,AN4,1,AN4,
  40.   4,DN5,2,AN4,2,AN4,4,AN4,4,BN4, 12,CN5,4,CN4,
  41.   2,CN4,2,CN4,8,EN4,2,CN4,2,CN4,
  42.   2,CN4,2,CN4,8,GN4,4,CN4, 4,CN5,2,CN5,2,CN5,2,CN5,2,DF5,4,BF4,
  43.   12,AF4,3,AF4,1,AF4,
  44.   4,FF4,4,FF4,6,AF4,2,FF4, 4,EF4,4,EF4,6,AF4,2,AF4,
  45.   4,FF4,4,FF4,4,AF4,2,AF4,2,AF4, 12,BN4,4,EN4,
  46.   4,AN4,4,AN4,4,AN4,2,BN4,2,CS5,
  47.   4,DN5,4,AN4,4,FN4,4,DN4, 4,AN4,4,AN4,4,AN4,2,BN4,2,CS5,
  48.   6,DN5,2,FN5,4,FN5,4,DN5, 4,DN5,2,DN5,2,DN5,4,CS5,4,CS5,
  49.   6,DN5,2,FN5,4,FN5,4,DN5, 4,DN5,4,CS5,4,CN5,4,AF4,
  50.   4,CN5,4,BN4,4,BF4,4,GN4, 4,CS5,4,AN4,4,FS4,4,FN3,
  51.   8,AN4,8,AN3, 8,DN4,8,000,
  52.  
  53.   3,DN4,1,DN4, 2,DN4,2,DN4,8,FN4,4,DN4,
  54.   2,DN4,2,DN4,8,AN4,3,AN4,1,AN4,
  55.   4,DN5,2,AN4,2,AN4,4,AN4,4,BN4, 12,CN5,4,CN4,
  56.   2,CN4,2,CN4,8,EN4,2,CN4,2,CN4,
  57.   2,CN4,2,CN4,8,GN4,4,CN4, 4,CN5,2,CN5,2,CN5,2,CN5,2,DF5,4,BF4,
  58.   12,AF4,3,AF4,1,AF4,
  59.   4,FF4,4,FF4,6,AF4,2,FF4, 4,EF4,4,EF4,6,AF4,2,AF4,
  60.   4,FF4,4,FF4,4,AF4,2,AF4,2,AF4, 12,BN4,4,EN4,
  61.   4,AN4,4,AN4,4,AN4,2,BN4,2,CS5,
  62.   4,DN5,4,AN4,4,FN4,4,DN4, 4,AN4,4,AN4,4,AN4,2,BN4,2,CS5,
  63.   6,DN5,2,FN5,4,FN5,4,DN5, 4,DN5,2,DN5,2,DN5,4,CS5,4,CS5,
  64.   6,DN5,2,FN5,4,FN5,4,DN5, 4,DN5,4,CS5,4,CN5,4,AF4,
  65.   4,CN5,4,BN4,4,BF4,4,GN4, 4,CS5,4,AN4,4,FS4,4,FN3,
  66.   8,AN4,8,AN3,
  67.   4,DN4,2,000,2,GN3,4,DN4,2,000,2,GN3,
  68.   4,DN4,2,000,2,GN3,2,DN4,2,GN3,2,DN4,2,GN3,
  69.   4,DN4,4,000,4,DN4,4,000, 16,DN4,0
  70. };
  71.  
  72.  
  73. char Canon[] = {
  74.   18,000,        /* start delay */
  75.   4,000,4,FS5,4,EN5,4,DN5, 4,EN5,4,DN5,4,CS5,8,BN4,    /* 1-2 */
  76.   4,FS5,4,EN5,4,DN5,4,DN5, 4,CS5,4,BN4,4,AN4,4,CS5,    /* 3-4 */
  77.   4,000,4,BN5,4,AN5,4,GN5, 8,AN5,4,BN5,4,CS6,        /* 5-6 */
  78.   8,DN6,8,BN5, 4,FS5,4,EN5,4,FS5,2,AN4,2,GN4,        /* 7-8 */
  79.   4,FS5,4,EN5,4,FS5,4,AN5, 8,FS5,4,FS5,4,EN5,        /* 9-10 */
  80.   4,DN5,2,DN5,2,EN5,4,FS5,4,BN5, 8,BN5,4,000,4,AN5,    /* 11-12 */
  81.   4,GN5,2,FS5,2,EN5,4,DN5,4,EN4, 4,FS4,4,000,4,DN5,4,FS4,
  82.   4,GN4,4,DN5,4,EN5,4,DN5, 2,CS5,2,BN4,8,AN4,4,000,    /* 15-16 */
  83.   2,FS4,2,AN4,2,FS4,2,AN4,2,FS4,2,AN4,2,FS4,2,AN4,    /* 17 */
  84.   2,EN4,2,AN4,2,EN4,2,AN4,2,EN4,2,AN4,2,EN4,2,AN4,    /* 18 */
  85.   2,FS4,2,BN4,2,FS4,2,BN4,2,FS4,2,BN4,2,FS4,2,AN4,    /* 19 */
  86.   2,AN4,2,CS5,2,FS5,2,GN5,2,FS5,2,DN5,2,AN4,2,CS5,    /* 20 */
  87.   2,AN4,4,DN5,4,GN5,2,DN5,2,CS5,2,BN4,            /* 21 */
  88.   2,DN5,2,CS5,8,DN5,4,DN5,                /* 22 */
  89.   2,DN4,2,BN4,2,CS5,2,BN4,4,DN5,2,EN5,2,DN5,        /* 23 */
  90.   2,CS5,2,BN4,8,AN4,2,EN4,2,AN4,            /* 24 */
  91.   4,FS5,4,DN5,4,FS4,4,FS5,                /* 25 */
  92.   4,EN5,4,AN4,1,EN5,1,FS5,1,EN5,1,FS5,1,EN5,1,FS5,2,EN5,
  93.   4,DN5,4,BN4,4,FS4,4,DN5,                /* 27 */
  94.   4,CS5,4,AN4,1,CS5,1,DN5,1,CS5,1,DN5,1,CS5,1,BN4,2,CS5,/* 28 */
  95.   4,BN4,4,DN5,4,BN4,4,GN4,                /* 29 */
  96.   1,FS4,1,AN4,1,DN5,1,FS5,1,AN4,1,DN5,1,FS5,1,AN5,    /* 30 */
  97.   1,DN5,1,FS5,1,AN5,1,BN5,1,AN5,1,GN5,1,FS5,1,EN5,
  98.   4,DN5,4,BN4,2,GN4,2,BN4,2,CS5,2,DN5,            /* 31 */
  99.   4,CS5,4,EN5,1,AN5,1,BN5,1,AN5,1,BN5,1,AN5,1,BN5,2,GN5,/* 32 */
  100.   1,FS5,1,EN5,1,DN5,1,AN4,1,FS4,1,EN4,1,BN4,1,AN3,    /* 33 */
  101.   1,DN6,1,GN5,1,FS5,1,DN5,1,AN4,1,GN4,1,FS4,1,DN4,
  102.   1,EN5,1,DN5,1,CS5,1,BN4,1,CS5,1,GN4,1,FS4,1,EN4,    /* 34 */
  103.   1,GN5,1,FS5,1,EN5,1,DN5,1,CS5,1,BN4,1,AN4,1,GN4,
  104.   1,DN5,1,CS5,1,BN4,1,FS4,1,DN4,1,CS4,1,BN3,1,FS3,    /* 35 */
  105.   1,BN5,1,EN5,1,DN5,1,CS5,1,BN4,1,AN4,1,GN4,1,FS4,
  106.   1,CS5,1,BN4,1,AN4,1,GN4,1,AN4,1,EN4,1,DN4,1,CS4,    /* 36 */
  107.   1,AN5,1,GN5,1,FS5,1,EN5,1,DN5,1,CS5,1,BN4,1,AN4,
  108.   1,BN4,1,AN4,1,GN4,1,FS4,1,FS4,1,DN4,1,CS4,1,BN3,    /* 37 */
  109.   1,GN4,1,BN4,1,CS5,1,DN5,1,GN5,1,AN5,1,BN5,1,DN6,
  110.   1,FS6,1,EN6,1,DN6,1,AN5,1,FS5,1,EN5,1,DN5,1,AN4,    /* 38 */
  111.   1,DN5,1,EN5,1,FS5,1,GN5,1,AN5,1,BN5,1,CS6,1,DN6,
  112.   1,GN5,1,FS5,1,EN5,1,DN5,1,CS5,1,BN4,1,AN4,1,GN4,    /* 39 */
  113.   1,BN5,1,AN5,1,GN5,1,FS5,1,EN5,1,DN5,1,CS5,1,BN4,
  114.   1,CS6,1,BN5,1,AN5,1,GN5,1,FS5,1,EN5,1,DN5,1,CS5,    /* 40 */
  115.   1,AN4,1,GN4,1,FS4,1,EN4,1,DN4,1,CS4,1,BN3,1,AN3,
  116.   8,DN5,8,AN4, 8,CS5,8,AN4, 8,BF4,8,FN4,
  117.   8,BF4,4,000,4,BF4, 8,BF4,8,AN4, 16,AN4,16,DN5,0
  118. };
  119.  
  120.  
  121. char PhaserSound[] = {1,30, 1,31, 0};
  122.  
  123. char TorpSound[] = {1,8, 1,9, 1,8, 1,20, 1,21, 1,22, 0};
  124.  
  125. char WhistleSound[] = {4,50, 10,100, 0};
  126.  
  127.  
  128. char Scale[] = {
  129.   4,CN4, 4,DN4, 4,EN4, 4,FN4, 4,GN4, 4,AN4, 4,BN4, 4,CN5, 8,000, 0
  130. };
  131.